home *** CD-ROM | disk | FTP | other *** search
/ How Would You Survive? / How Would You Survive (1995)(Grolier)[Mac-PC].iso / pc / vikingw.dir / 01650_Script_travelling < prev    next >
Text File  |  1995-09-12  |  5KB  |  188 lines
  1. global gbeenclicked, gQuest
  2.  
  3. on VTravelRollovers
  4.   set gbeenclicked = 0
  5.   if (not(CheckClickedStatus(gQuest))) then
  6.     if rollover(6) or rollover(7) then
  7.       repeat while rollover(6) or rollover(7)
  8.         VikingCursor
  9.         if (the mousedown) then
  10.           set gbeenclicked = 1
  11.         else
  12.           --the mouse is up
  13.           if gbeenclicked = 1 then
  14.             repeat while gbeenclicked = 1
  15.               TravelAnimation
  16.             end repeat
  17.           end if
  18.         end if
  19.       end repeat
  20.     else
  21.       if rollover(40) then
  22.         HandCursor
  23.       else
  24.         if rollover(41) then
  25.           HandCursor
  26.         else
  27.           if rollover(42) then
  28.             HandCursor
  29.           else
  30.             ArrowCursor
  31.           end if
  32.         end if
  33.       end if
  34.     end if
  35.   end if
  36.   RandomQuestion(gQuest)
  37. end
  38.  
  39. on VTravelRollovers2
  40.   set gbeenclicked = 0
  41.   if (not(CheckClickedStatus(gQuest))) then
  42.     if rollover(6) then
  43.       VikingCursor
  44.       repeat while rollover(6)
  45.         if (the mousedown) then
  46.           set gbeenclicked = 1
  47.         else
  48.           --the mouse is up
  49.           if gbeenclicked = 1 then
  50.             repeat while gbeenclicked = 1
  51.               AnimateLoopSoundFade 6, 855, 3, "SV340600.AIF", 2
  52.             end repeat
  53.           end if
  54.         end if
  55.       end repeat
  56.     else
  57.       if rollover(11) then
  58.         ArrowCursor
  59.         repeat while rollover(11)
  60.           set the locH of sprite 12 to 248
  61.           set the locV of sprite 12 to 347
  62.           updatestage
  63.         end repeat
  64.         set the locH of sprite 12 to 999
  65.         updatestage
  66.       else
  67.         if rollover(9) then
  68.           ArrowCursor
  69.           repeat while rollover(9)
  70.             set the locH of sprite 10 to 409
  71.             set the locV of sprite 10 to 107
  72.             updatestage
  73.           end repeat
  74.           set the locH of sprite 10 to 999
  75.           updatestage
  76.         else
  77.           if rollover(7) then
  78.             ArrowCursor
  79.             repeat while rollover(7)
  80.               set the locH of sprite 8 to 248
  81.               set the locV of sprite 8 to 329
  82.               updatestage
  83.             end repeat
  84.             set the locH of sprite 8 to 999
  85.             updatestage
  86.           else
  87.             if rollover(39) then
  88.               HandCursor
  89.             else
  90.               if rollover(41) then
  91.                 HandCursor
  92.               else
  93.                 if rollover(42) then
  94.                   HandCursor
  95.                 else
  96.                   ArrowCursor
  97.                 end if
  98.               end if
  99.             end if
  100.           end if
  101.         end if
  102.       end if
  103.     end if
  104.   end if
  105.   RandomQuestion(gQuest)
  106. end
  107.  
  108.  
  109.  
  110. on TravelAnimation
  111.   ArrowCursor
  112.   puppetsprite 8, true
  113.   puppetsprite 9, true
  114.   puppetsprite 10, true
  115.   set RunThruCount = 0
  116.   set gCast1 = the castNum of sprite 8
  117.   set gCast2 = the castNum of sprite 9
  118.   set gCast3 = the castNum of sprite 10
  119.   repeat while RunThruCount < 3 and (the MouseUp)
  120.     puppetsound "SV340303.AIF"  
  121.     set the castNum of sprite 9 = gCast2 + 1
  122.     updatestage
  123.     Wait .5
  124.     if the mousedown then
  125.       exit repeat
  126.     end if
  127.     set the castNum of sprite 10 = gCast3 + 1
  128.     updatestage
  129.     Wait .5
  130.     if the mousedown then
  131.       exit repeat
  132.     end if
  133.     puppetsound 0
  134.     set the castNum of sprite 8 = gCast1 + 1
  135.     updatestage
  136.     Wait .5
  137.     if the mousedown then
  138.       exit repeat
  139.     end if
  140.     set the castNum of sprite 10 = gCast3
  141.     set the castNum of sprite 9 = gCast2
  142.     updatestage
  143.     Wait .5
  144.     if the mousedown then
  145.       exit repeat
  146.     end if
  147.     set the castNum of sprite 10 = gCast3 + 1
  148.     updatestage
  149.     Wait .5
  150.     puppetsound "SV340303.AIF"  
  151.     set the castNum of sprite 9 = gCast2 + 1
  152.     updatestage
  153.     Wait .5
  154.     if the mousedown then
  155.       exit repeat
  156.     end if
  157.     set the castNum of sprite 8 = gCast1
  158.     updatestage
  159.     Wait .5
  160.     if the mousedown then
  161.       exit repeat
  162.     end if
  163.     set the castNum of sprite 10 = gCast3
  164.     updatestage
  165.     Wait .5
  166.     if the mousedown then
  167.       exit repeat
  168.     end if
  169.     puppetsound 0
  170.     set the castNum of sprite 9 = gCast2
  171.     updatestage
  172.     Wait .5
  173.     if the mousedown then
  174.       exit repeat
  175.     end if
  176.     set RunThruCount = RunThruCount + 1
  177.   end repeat
  178.   set the castNum of sprite 8 = gCast1
  179.   set the castNum of sprite 9 = gCast2
  180.   set the castNum of sprite 10 = gCast3
  181.   updatestage
  182.   sound fadeOut 1, 2*60
  183.   puppetsprite 8, false
  184.   puppetsprite 9, false
  185.   puppetsprite 10, false
  186.   set gbeenclicked = 0
  187. end
  188.